home *** CD-ROM | disk | FTP | other *** search
/ Geek Games #12 / GEGA012.iso / Jogos de Azar / 599.swf / scripts / frame_168 / DoAction.as
Text File  |  2006-01-17  |  3KB  |  146 lines
  1. win = "0";
  2. hando = hand;
  3. call("sortHand");
  4. y = "0";
  5. while(y < "5")
  6. {
  7.    set("a" add y,"0");
  8.    y += "1";
  9. }
  10. npair = "0";
  11. i = "0";
  12. while(i < "5")
  13. {
  14.    k = i + "1";
  15.    while(k < "5")
  16.    {
  17.       if(hand.substr(i * "3" + "1","1") eq hand.substr(k * "3" + "1","1"))
  18.       {
  19.          if(!firstTime)
  20.          {
  21.             if(eval("a" add i) != "1")
  22.             {
  23.                tellTarget("/hold" add (i + "1"))
  24.                {
  25.                   gotoAndPlay(2);
  26.                }
  27.                set("a" add i,"1");
  28.             }
  29.             if(eval("a" add k) != "1")
  30.             {
  31.                tellTarget("/hold" add (k + "1"))
  32.                {
  33.                   gotoAndPlay(2);
  34.                }
  35.                set("a" add k,"1");
  36.             }
  37.          }
  38.          npair += "1";
  39.       }
  40.       k += "1";
  41.    }
  42.    i += "1";
  43. }
  44. col = hand.substr("2","1");
  45. k = "1";
  46. i = "1";
  47. while(i < "5")
  48. {
  49.    if(col ne hand.substr(i * "3" + "2","1"))
  50.    {
  51.       k = "0";
  52.       i = "5";
  53.    }
  54.    i += "1";
  55. }
  56. col = k;
  57. i = "0";
  58. str = "";
  59. while(i < "5")
  60. {
  61.    str = str add hand.substr(i * "3" + "1","1");
  62.    i += "1";
  63. }
  64. lflush = "0";
  65. gflush = "0";
  66. if(str eq "23456" or str eq "34567" or str eq "45678" or str eq "56789" or str eq "67890" or str eq "7890A" or str eq "890AV" or str eq "90AVD")
  67. {
  68.    lflush = "1";
  69. }
  70. else if(str eq "0AVDK")
  71. {
  72.    gflush = "1";
  73. }
  74. verdict = "";
  75. if(col)
  76. {
  77.    if(gflush)
  78.    {
  79.       win = eval("afis:rflush");
  80.       verdict = "rflush";
  81.    }
  82.    else if(lflush)
  83.    {
  84.       win = eval("afis:rstrflush");
  85.       verdict = "rstrflush";
  86.    }
  87.    else
  88.    {
  89.       win = eval("afis:colour");
  90.       verdict = "colour";
  91.    }
  92. }
  93. else if(gflush or lflush)
  94. {
  95.    win = eval("afis:flush");
  96.    verdict = "flush";
  97. }
  98. else if(npair == "1")
  99. {
  100.    win = eval("afis:onepair");
  101.    verdict = "onepair";
  102. }
  103. else if(npair == "2")
  104. {
  105.    win = eval("afis:twopair");
  106.    verdict = "twopair";
  107. }
  108. else if(npair == "3")
  109. {
  110.    win = eval("afis:threeokind");
  111.    verdict = "threeokind";
  112. }
  113. else if(npair == "4")
  114. {
  115.    win = eval("afis:full");
  116.    verdict = "full";
  117. }
  118. else if(npair == "6")
  119. {
  120.    verdict = "poker";
  121.    win = eval("afis:poker");
  122. }
  123. if(verdict ne "")
  124. {
  125.    action = "YOU WIN: " add win;
  126.    status = action;
  127. }
  128. else if(firstTime)
  129. {
  130.    action = "YOU HAVE NOTHING...TRY AGAIN";
  131.    status = action;
  132. }
  133. hand = hando;
  134. if((col or gflush or lflush) and !firstTime)
  135. {
  136.    i = "0";
  137.    while(i < "5")
  138.    {
  139.       tellTarget("/hold" add (i + "1"))
  140.       {
  141.          nextFrame();
  142.       }
  143.       i += "1";
  144.    }
  145. }
  146.